unit ufTask_Sheduler_PropertyCustom;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, uTasks;

type
  TfTask_Sheduler_PropertyCustom = class(TFrame)
  private
    FShedule: TShedule;
  public
    property Shedule: TShedule read FShedule;
    constructor Create(AOwner: TComponent); override;

    procedure Prepare(AShedule: TShedule); virtual;
    procedure Save(); virtual;
    procedure Check; virtual;
  end;

  TfTask_Sheduler_PropertyCustomClass = class of TfTask_Sheduler_PropertyCustom;

implementation

{$R *.dfm}

{ TfTask_Sheduler_PropertyCustom }

procedure TfTask_Sheduler_PropertyCustom.Save;
begin
end;

procedure TfTask_Sheduler_PropertyCustom.Check;
begin
end;

constructor TfTask_Sheduler_PropertyCustom.Create(AOwner: TComponent);
begin
  inherited;
  FShedule:= nil;
end;

procedure TfTask_Sheduler_PropertyCustom.Prepare(AShedule: TShedule);
begin
  FShedule:=AShedule;
end;

end.
